home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
Z-Misc Series
/
(k)z7.d64
/
proc.ellipse
< prev
next >
Wrap
Text File
|
2009-01-03
|
606b
|
21 lines
0010 ╨╥╧├ ELLIPSE(X,Y,SCRUNCH,WIDTH) ├╠╧╙┼─
0020 // SCRUNCH < 1 = STRETCH Y
0030 // SCRUNCH > 1 = STRETCH X
0040 // SCRUNCH @ 0.9 = PERFECT CIRCLE
0050 ╒╙┼ GRAPHICS
0060 X'OLD:=XCOR; Y'OLD:=YCOR
0070 HEADING'OLD:=HEADING
0080 WIN'X'MIN:=INQ(23)
0090 WIN'X'MAX:=INQ(24)
0100 WIN'Y'MIN:=INQ(25)
0110 WIN'Y'MAX:=INQ(26)
0120 Y'COR:=1/SCRUNCH
0130 X'COR:=SCRUNCH
0140 MOVETO(X,Y)
0150 WINDOW(0,319*X'COR,0,Y'COR*199)
0160 CIRCLE(XCOR,YCOR,WIDTH)
0170 WINDOW(WIN'X'MIN,WIN'X'MAX,WIN'Y'MIN,WIN'Y'MAX)
0180 MOVETO(X'OLD,Y'OLD)
0190 SETHEADING(HEADING'OLD)
0200 ┼╬─╨╥╧├ ELLIPSE